home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 May
/
chip-cd_2002_05.zip
/
05
/
Dom i biuro
/
Mr Faktury Pro 1.53
/
mr_faktury_pro.exe
/
0
/
RCDATA
/
TFCOFNIJ_EWIDENCJA
/
TFCOFNIJ_EWIDENCJA.txt
Wrap
Text File
|
2002-03-27
|
6KB
|
226 lines
object fCofnij_ewidencja: TfCofnij_ewidencja
Left = 291
Top = 240
BorderStyle = bsSingle
Caption = 'Ewidencja cofni'#281#263
ClientHeight = 239
ClientWidth = 546
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 545
Height = 201
DataSource = ds
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'symbol_faktury'
Title.Caption = 'Symbol faktury'
Visible = True
end
item
Expanded = False
FieldName = 'data_cofniecia'
Title.Caption = 'Data cofniecia'
Visible = True
end
item
Expanded = False
FieldName = 'do_zaplaty'
Title.Caption = 'Do zap'#322'aty/zwrotu'
Visible = True
end
item
Expanded = False
FieldName = 'nazwa_firmy'
Title.Caption = 'Nazwa firmy'
Visible = True
end>
end
object bWyjdz: TButton
Left = 456
Top = 208
Width = 75
Height = 25
Caption = '&Wyjdz'
TabOrder = 1
OnClick = bWyjdzClick
end
object bDrukuj: TButton
Left = 8
Top = 208
Width = 75
Height = 25
Caption = '&Drukuj'
TabOrder = 2
OnClick = bDrukujClick
end
object bKasuj: TButton
Left = 104
Top = 208
Width = 75
Height = 25
Caption = '&Kasuj'
TabOrder = 3
OnClick = bKasujClick
end
object bWybierz: TBitBtn
Left = 344
Top = 208
Width = 75
Height = 25
Caption = '&Wybierz'
TabOrder = 4
OnClick = bWybierzClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object ds: TDataSource
DataSet = tNag_cof
Left = 96
Top = 56
end
object tNag_cof: TffTable
DatabaseName = 'mr_sklep'
FieldDefs = <>
SessionName = '[automatic]'
TableName = 'nag_cof'
Timeout = 10000
OnCalcFields = tNag_cofCalcFields
Left = 144
Top = 56
object tNag_cofnumer: TAutoIncField
FieldName = 'numer'
end
object tNag_cofsymbol_faktury: TStringField
FieldName = 'symbol_faktury'
Required = True
Size = 15
end
object tNag_cofnumer_cofniecia: TIntegerField
FieldName = 'numer_cofniecia'
Required = True
end
object tNag_cofnumer_nag: TIntegerField
FieldName = 'numer_nag'
Required = True
end
object tNag_cofnumer_magazynu: TWordField
FieldName = 'numer_magazynu'
Required = True
end
object tNag_cofnumer_kasy: TWordField
FieldName = 'numer_kasy'
Required = True
end
object tNag_coftyp: TWordField
FieldName = 'typ'
Required = True
end
object tNag_cofdata_cofniecia: TDateField
FieldName = 'data_cofniecia'
Required = True
end
object tNag_cofdata_sprzedazy: TDateField
FieldName = 'data_sprzedazy'
Required = True
end
object tNag_cofdata_przyjecia: TDateField
FieldName = 'data_przyjecia'
Required = True
end
object tNag_cofnumer_firmy: TIntegerField
FieldName = 'numer_firmy'
Required = True
end
object tNag_cofsymbol_fak_cofanej: TStringField
FieldName = 'symbol_fak_cofanej'
Required = True
Size = 15
end
object tNag_cofvat: TCurrencyField
FieldName = 'vat'
Required = True
end
object tNag_cofdo_zaplaty: TCurrencyField
FieldName = 'do_zaplaty'
Required = True
end
object tNag_cofplatnosc: TWordField
FieldName = 'platnosc'
Required = True
end
object tNag_cofrodzaj: TWordField
FieldName = 'rodzaj'
Required = True
end
object tNag_cofpodstawa: TStringField
FieldName = 'podstawa'
Required = True
Size = 30
end
object tNag_cofnumer_kolejny: TWordField
FieldName = 'numer_kolejny'
Required = True
end
object tNag_cofstatus: TWordField
FieldName = 'status'
Required = True
end
object tNag_cofnazwa_firmy: TStringField
FieldKind = fkCalculated
FieldName = 'nazwa_firmy'
Size = 40
Calculated = True
end
end
object frReport: TfrReport
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
OnGetValue = frReportGetValue
Left = 208
Top = 208
ReportForm = {18000000}
end
object frDBDataSet: TfrDBDataSet
DataSet = tNag_cof
OnFirst = frDBDataSetFirst
Left = 248
Top = 208
end
end